library(readr) death = read_csv( "http://johnmuschelli.com/intro_to_r/data/indicatordeadkids35.csv") death[1:2, 1:5]
# A tibble: 2 x 5
X1 `1760` `1761` `1762` `1763`
<chr> <dbl> <dbl> <dbl> <dbl>
1 Afghanistan NA NA NA NA
2 Albania NA NA NA NA
colnames(death)[1] = "country" death[1:2, 1:5]
# A tibble: 2 x 5
country `1760` `1761` `1762` `1763`
<chr> <dbl> <dbl> <dbl> <dbl>
1 Afghanistan NA NA NA NA
2 Albania NA NA NA NA